'-------------------------------------------------------------------------------
'--- ERP.VBS
'
'   Autor: Sardi, Leandro Daniel
'   Fecha: 18-01-2006
'
'   Descripcion: Se declaran las clases del framework ERP.
'
'   Ultima Revision: 18-01-2006
'
'-------------------------------------------------------------------------------


option explicit



include "includes\model.vbs"




'-------------------------------------------------------------------------------
'--- OBJETOS ESTATICOS
'
'

declare_class "QPais"
    declare_property "QPais",       TYPE_STRING,    "nombre",       "Nombre",       MODE_SIMPLE
    declare_property "QPais",       "QEstado",      "",             "Estados",      MODE_LIST
register_class "QPais"


declare_class "QProvincia"
    declare_property "QProvincia",  TYPE_STRING,    "nombre",       "Nombre",       MODE_SIMPLE
    declare_property "QProvincia",  "QCiudad",      "",             "Ciudad",       MODE_LIST
register_class "QProvincia"


declare_class "QLocalidad"
    declare_property "QLocalidad",  TYPE_STRING,    "nombre",       "Nombre",       MODE_SIMPLE
register_class "QLocalidad"


declare_class "QTipoDomicilio"
    declare_property "QTipoDomicilio",TYPE_STRING,  "nombre",       "Nombre",       MODE_SIMPLE
register_class "QTipoDomicilio"


declare_class "QDireccion"
    declare_property "QDireccion",  TYPE_STRING,    "calle",        "Calle",        MODE_SIMPLE
    declare_property "QDireccion",  "QLocalidad",   "",             "Localidad",    MODE_PTR
    declare_property "QDireccion",  "QTipoDomicilio",   "",         "Tipo de Domicilio",    MODE_PTR
register_class "QDireccion"


declare_class "QTipoTelefono"
    declare_property "QTipoTelefono",  TYPE_STRING,    "nombre",   "Nombre",       MODE_SIMPLE
register_class "QTipoTelefono"


declare_class "QTelefono"
    declare_property "QTelefono",   TYPE_STRING,    "calle",        "Calle",        MODE_SIMPLE
    declare_property "QTelefono",   "QLocalidad",   "",             "Localidad",    MODE_PTR
    declare_property "QTelefono",   "QTipoTelefono","",             "Tipo de Telefono",    MODE_PTR
register_class "QTelefono"


declare_class "QPersona"
    declare_property "QPersona",    TYPE_STRING,    "nombre",       "Nombre",       MODE_SIMPLE
    declare_property "QPersona",    TYPE_DATE,      "nacimiento",   "Nacimiento",   MODE_SIMPLE
    declare_property "QPersona",    "QDireccion",   "",             "Direcciones",  MODE_LIST
    declare_property "QPersona",    "QTelefono",    "",             "Telefonos",    MODE_LIST
register_class "QPersona"





'-------------------------------------------------------------------------------
'--- OBJETOS TRANSACCIONALES
'
'

'Los estados mas comunes son: ABIERTA, CERRADA, PENDIENTE.
declare_class "QEstadoTransaccion"
    declare_property "QEstadoTransaccion",TYPE_STRING,"nombre",      "Nombre",       MODE_SIMPLE
register_class "QEstadoTransaccion"


declare_class "QTransaccion"
    declare_property "QTransaccion",TYPE_INT,       "numero",       "Numero",       MODE_SIMPLE
    declare_property "QTransaccion","QEstadoTransaccion","",        "Estado",       MODE_PTR
register_class "QTransaccion"

